COLOUR 

GENIE 

AUCKLAND DISTRICT USER GROUP 
NEWSHEET 

ISSUE Ito. 6 

RCMS, RCMS, RCMS NEW ROMS PC» OLD ROMS. 

This created it's fair share of discussion at the last meeting, and NOLA touches upon this sibject a 
little firther on. 

Amouigst the various bits and pieces collected, and so for not printed in any previous 
newsletters, is sane information fVcm LOWE CCMPUTERS on the new ROMS, vhat the catmands are together 

with brief explanatory notes. apology for not having included this info before, but sorathing 

for a rainy day ! 

QUcrrE 

The new Rons add an extra line to the text display screen making it iJO x 25, and 8 lines to 
the Hi Ftes now 160 x 120. New carmands have been added and a lot of the ordinal ones speeded up, 

i.e. the plot caimand, etc. works a lot faster, the paint caimand will now paint intricate shapes. 

Che of the caimands added is SWAP v*ich allows variables, especially string variables, to be 
swapped without using temporary strings and without causing any string hang-ups. 

Apart fhcm adding commands and speeding certain operations up they will also allow you to use 
the Ran based disk operating system vhich is shortly to be released . 

All the enhancements are upward compatible with the existing R.O.M.S. 

Ihe following features have been either added or imp"Oved: 


1 . Ihe text screen is now 40 characters by 25 7. 

2. Ihe graphics screen is now 160 by 102. to 8. 

keep compatible with the text screen. 

3. 3niT-F2 mow equals SYSTEM 9. 

4. SHIFT-F4 now equals CSAVE " 

5. Ihe paint ccmmand has been vastly improved 

to cope with difficult shapes. Ihere is also 
now 3 modes of operation as follove: 10 

PADfT X, Y, C 11. 

PAINT X, Y, C, B 

PAINT X, Y, C, B, B 

12 . 

Inhere X and Y ■ the start coordinates 

C ■ the colcu" to print in 13. 

B ■ the Boundary colour 

6. Ihe play ccmmand can now be used with 
expressiona/canmands within it, i.e. FLAY 
(1, KEYPAD1, KEYPAD2, (JOYIX-1) AND 15). 

To be able to take advantage of the various 
envelope shapes, you can now use the PLAY 
ccmmand with the volume equal to 16 vhich 14. 
will allow vhatever envelope shape has been 
set up to be used. E.G. SOUND 13,8 : 3et 
envelope to 8: PLAY (1,5,8,16) 

Firther by adding 16 to the old note nutbw 
a better C-Major scale can be produced. 


Ihe Plot camand has been speeded up. 

Ihe Verify ccmmand can now be used with a 
program nare, i.e. VERIFY ’’N' 

Ihe &H and &0 now allove spaces to follow the 
nuitoer within statements. Also it is now 
valid to use any Ffex or Octal number vithout 
leading ^os, i.e. &FF. 

Ihe FILL caimand is now replaced with FdS n . 
n ■ 1 to 4. 

Ihe SOUND caimand can now be used to read back 
the contents of the PSG chip, i.e. HUNT SOUND 
(n) vhere n * 0 - 15. 

Ihe KEYPAD caimand can now be used with a 
variable, i.e. A ■ 1: PRINT KEYPAD (A). 

Scale now reads the sc^e factor in use , i .e . 
PRINT SCALE 

All the follovdng are new caimands added to 
the Cblour Genie. Ihe latter three are 
involved with Bit manipulation. 


SWAP var, var: allows you to swap variables, 
which is especially useful for strings for 
use in sorts, etc. and doesn't cause any 

string "hang-ups" , usuaUv l4X>wn as the 
"GARfflCE Collection Cycle". 


2 


15 

17 


SET ( b, addr ) Sets bi b in address addr 16. RESET b, addr Besets bit b in address addr 

CHEXX (b, addr) (heoks if bit b is set in address addr returns - 1 as true or set and 0 as false 
or reset. 

“ " UNQUCflE. 


GRAPHICS; 


It vBS mfortuiate that one of our evenings Rngran Convenors ves unable to attend, as a 
question arose on the very subject that both Ken and Andy vere to demonstrate - Block graphics. 
Hovever, something to look forvard to next months meeting. Hope the fanily he^th is all O.K. now 
Andy. 


There is ^veys (so it seons) someone else on hand vho has something to offer, and in this 
regard Chris BISHOP has over a period of time developed his ovn OiAHUCS PROCSUMCR. Oris has 
offered this listing for publication vhich jou will find in this newsletter. I’ve tried it and it 
vcrks just fine, better I think than the one in the ^fenual. _ Just one or two questions for you at 
the next meeting Chris. 


MEICERS TIPS: 


BASIC KEYWORDS. 

Single key entries BASIC can easily be adiieved using the MCHSEL key. (haphics will appear 
vhen you do this, but list the line afterverds aid SURPRISE ! 

OCKTRCL (MOESEL) 


Q - INP 

W- COS 

E - 

* R - POS T - 

RND 

Y - TAN 

U - LOG 


I - OR 

0 - ASB 

P - FRE 

§ - THEM 

A - 

NOT S - SCJl D - 

— 

F - / 

G- [ 


H - ■ 

L - < 

; - INSTR 

ERL 

Z - 

ANT X - SIN C - 

+ 

V - EXP 

B - STEP 

N - INT 

M - SC31 

, - USR 

. - ERR 

/ - 

STRING$ 







CONTRCL (MISEiySHIFT) 








Q - ASC 

E - LOC 

R - 

CHR$ T - RIGHT$ 

U - 

MID$ I 

- MKD$ 

0 

- STR$ 

P - VAL 

e - PEEK 

A - CVI 

S - 

UEFI$ D - ECF 

F - 

LCT G 

- MFCI$ 

J 

- CINT 

K - CSNG 

L - CDBL 

; - VARPT 

— - 

- TIMES$ C - CUD 

V - 

' B 

- CVS 

N 

- LEN 

M- FIX 


, - POINT . - MEM / - IMCEYS 

FVxm ROSS KAY, 
Glen Eden. 


KEYBOARD MEMORY HAP 

There ves also a request for a reprint of the Keyboard Itanory La^iut. 
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Meeting Held on 25th June. 1984 

Another great crowd, there were 48 people at the meeting. Unfortunately, 
our Speaker for the evening. Andy, had a donestic happening, and was unable 
to come to the meeting. However, Olwen chaired the evening, and a 
discussion on software, new roms etc, was held. 

Ralph Wesseling's mother was in Holland recently and brought back some 
German software for the Colour Genie. The two programs. Hcktik and Wurm, 
are both available here, but we now have six 'dealer' addresses to write 
to. There is also a good chance that Holland will have a User's Group, so 
I will be asking the dealers if they can put us in touch with one. 

Keith McGill is going to write to the German company for us, as I wrote to 
them a couple of months ago, and have had no answer. We reasoned that 
perhaps they don't understand English, so Keith is going to write to them 
in German. Hopefully, we will then get an answer. 

There was a lot of discussion on the new roms that will be available 
shortly. I have a set in my machine, and I have found that the differences 
are; Catcdi cannot be played on my machine at all. Colour Genie Golf 
also has to have a special version for the new roms. There is a SWAP 
command that is included, so some of the programs from the UK User's Group 
■agazine will have to be changed, if you have the old ROMS, i.e. SWAP A,B 
swaps the variables around, so a short line e.g. A=C,B=A,and C=B would 
have to replace this command. My F6 key also when pressed looks like this: 

SYSTEM 

■ ? 

All that has to be added for System tapes, is the initial for the name, 
then press RETURN. Depends how lazy you are as to how much value that has, 
I must be very lazy, because I find it very handy indeed! 

A bulk postage rate from the post office is to be sought for the 
newsletters. Apparently, if we are able to get the bulk rate, the postage 
goes down from 24c to 15c per envelope, which would be a good saving, I am 
writing to the post office today. 

It was also mentioned that a lot of the programs that Rakon have got, have 
next to no instructions with them. i.e. PCG Edit, Orgel, Andromeda, 
Hektik, etc. Is there some intelligent person out there who could write 
instructions for these tapes that could be published in the newsletter as 
they are done? 

Another magazine to add to the two last month. Computer Input. How could 
I forget this magazine when our own Chairman, Olwen. has a column for the 
Colour Genie in it. One interesting tip in the latest Computer Input - 
when you are scrolling through a listing, you can slow it down by pressing 
the REPEAT key. 

The UK Users' Group's magazine Chewing Gun is going to be available from 
now on as we have now joined their Group. This magazine can be copied for 
any member for a blank rate of $2.50 per copy. We also have all the back 
issues available for anyone that wants them, I have noted that several 
members at the meeting have requested copies of this magazine from now on. 

Mr Goldie also brought along a terrific bag made of a sacking material to 
hold all your bits and pieces in. It has I'« a Colour Genie Fan in 
glorious colour emblazoned across it, and it is a good size. It will do 
for either males or females, and costs $3,00, Put your order in to the 
Committee, and if you require it to be posted, please add another 50c. Mrs 
Goldie is meiking these bags and they look really good. Two were sold at 
the meeting. 


Alan Clarke talked about the programs (mentioned in last months' 
newsletter) that he could make available, PERT is for people in the 
buildings trade, I believe PERT stands for Program and Evaluation Renew 
Technique. 

PILOT is an authoring language program. (No. I don't really know what that 
means either!) I believe it is something to do with creating a program. 

The STATISTICS program has mean, standard deviation, analysis of variants, 
and multiple regression lines, whatever they are!! 

PROGRAM SEARCH is for finding a string, variable or woni in a basic 
program . 

GENERAL UTILITY PROGRAM does several things: Screen Dump, sends the whole 
screen to the printer. Move Memory, shifts blocks of memory to other 
locations. Auto Edit keeps the program in an Edit Mode, and moves from line 
to line instead of leaving the Edit Mode at the end of one line. This also 
works the opposite way, so that you can scroll backward in the Edit Mode. 
Renumber Program will even work with one line or the lot. Single Keyword 
Entry is available too (now you can have a 2X81 !!) With a Find command, a 
Merge command and also being able to Recover a BASIC program, this would be 
an extremely handy program. 

Allan also has a lot of Technical Information (including circuit diagrams) 
available for the TRS-80. If anyone is interested in this ,iust let him 
know, his address is: 47 Marsden Street, Takapuna 9. 

Software:- Since Mohammed wouldn't come to the mountain, I took along a 
pile of copies of the software list from the May newsletter, and got 
members to fill them out. We have now heard from 3 software companies in 
the UK and have ordered several masters from Gumboot, J, Brier, and J,D. 
Ironies. However, we needed to know what programs everyone was interested 
in before we ordered. As a matter of interest. The Word, Genie Calc and 
Double Agent are the most populeir. The Word will defintely be available 

shortly. We haven't heard from the software company that has Genie Calc 
yet. Algray, who have Double Agent, seem to be 'going under', but as Rakon 
(and Nola and Olwen) have the Double Agent program, this will be able to be 
distributed. However, it looks at the moment as if we won't be able to get 
any other programs from Algray. More on this later, when I have heard from 
the U.K. Users' Group. You will find enclosed with this newsletter, five 
pages on software which is now available from the Group. You will note 
that a lot of the programs so far available, are also available from Rakon, 
but our prices are a lot better!! To order, just detail what you require, 
and send your cheque in. Country members, please add $1.00 to any order to 
cover postage. We have purchased some of the 'bubbly bags' which will be 
used on all country orders. There will be more software pages next month, 
with new programs, as by that time, mote new tapes should have arrived from 
overseas . 

We will not be publishing a Members List in this month's magazine. As we 
now have 73 members/ family members, it is two pages that the list teikes up 
that can be used for programs etc. so a list will be published every two 
or three months. 

Well, that's my lot for this month, in case Ernie forgets to put it on, 
remember that the next meeting will be on the 

23rd June 1984 0 0 . 

* O T.M 


SO we will see you then. 




Nola Huggins 


AUCXLAM) OOLOUt GENIE USERS OKKF 


P. Q. Box 27-387, 

AUCKLAND. 4^ 


05 July 1984 

SOFTWARE NOW AVAILABLE TO MEMBERS OF COLOUR GENIE GROUP 

Please note: a brief review of each tape is included where possible 
GAMES 

COLOUR GENIE POKER $10.00 

A very difficult game. Good graphics. Winning bets start with two pair, 
not one pair. 


COLOUR GENIE GOLF $10.00 

AVAILABLE FOR EITHER NEW ROMS OR CURRENT MACHINES 
Good graphics. Plays nine rounds. 


KONG $12.00 

Same as the arcade game. 


PUNKTE $12.00 
A very good game, along the style of 'Pacman' games. Only one 'ghost' 
chasing you, no 'ghosts' in the middle. 


RUBIKS CUBE $10.00 

Same, more oc less, as the actual cube. 


OTHELLO $12.00 
Also known as Reversi. A very good game, and the computer makes a good 
oponent . 


HEKTIK $12.00 
A game where you have to dig holes in the 'walls' to stop the foxes from 
getting the eggs. (Well, I think they are foxes anyway!') Good graphics. 


METEOR $12.00 

A good arcade game from the German company. 


WURM $12.00 
A very enjoyable game, apparently like 'Centipede' on other computers, 
where you have to shoot the worm, and he breaks up 


Software Lists 


Page Two 


MOTTEN' ■ $12.00 
Another very good game from the German company, where you fire at moths 
coming towards you in a figure-eight pattern. Good sound and graphics. 


FIREBIRD $12.00 

Another German arcade style game, with good graphics. 


FUSS 

Another German game, similar to Snake where you grow bigger 
touch the sides, or the purple dots, however, this game is very 
and a great challenge. 


$ 12.00 
and cannot 
difficult. 


BLITZ $10.00 

Clear a landing site for your damaged craft by bombing buildings. 


WINDSCALE $10.00 
You have to hit little 'blobs', and the screen doesn't change until you 
have hit them all. Your scoring depends on how many you get, and how many 
times you run over your 'o-crharge' which is a line of white 'blobs'. 
Depending on what level of difficulty you choose, the line of white 'blobs' 
following you will cither be spasmodic, or a continuous line. 


SNAKE $10.00 
Supposed to be a good game for the younger children. Your snake grows 
bigger each time you swallow a frog, which keep jumping out of the lily 
pond. Enjoyable. 


RODEO 

A game where you have to trap a ball in the top lefthand 
building walls to stop it bouncing. Like 'Breakout'. 


$ 3.00 
comer . by 


MISSILE STRIKE $10.00 
Another arcade game, where you are above the N.M.E. shooting down on them, 
for a change. Supposed to be for younger children, but I feel there is 
quite a knack to actually hitting the N.M.E. with your laser gun. Maybe 
I'm not terribly good at arcade games. Yes. that's probably it. 


GENIE INVADERS $12.00 

Another German game, exactly as a 'space invader' arcade game. Good game. 


INVASION $12.00 

This, to my mind, is the best version of 'Space Invaders' I have seen. 


catch $12.00 

Another German game, this time a 'pacman' game. Supposed to be a very good 
game, but is not available for the new roms. 
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MAUSI - - $12.00 
Another German game, this time, a mouse running across the bottom of the 
screen trying to reach the cheese. Pressing the figure '1' sets up 
umbrellas for the mouse to hide under so he doesn't have a bomb rained down 
on him. However, the umbrella only lasts a short time. 


MAU-MAU $12.00 
Another German game, of the English game of '21'. However, the german 
version uses other cards than the ones we know. i.e. instead of an Ace to 
change the suit, the german version uses a Jack. Good graphics. 


EAGLE $10.00 

Another German arcade game, which has been translated into Englisli by Olwen 


EIS 

An extremely good game, where you have to 
'ghosts' behind them. Need quick reactions. 


melt icecubes to get 
Another German game. 


$12.00 
rid of 


ANDROMEDA $12.00 

Another German 'arcade-style' game. Two different screens. 


3AUG $12.00 
A different German geime, this time you are at the top of the screen, and 
below you is a maze with 'moles' hidden. Using the arrow keys you have to 
send your 'pipe' in through the maze to catch these moles, and they 'suck 
up the pipe' very realistically. There are several screens to this, and 
the graphics are good. 


BANK ROBBER $10.00 
This is another arcade style game. the ob:)ect of which is to manoeuvre a man 
from the left to the right hand side of the screen to get a bag of money, 
and to re- turn to the left hand side, avoiding falling bombs. The player 
13 helped by three barricades, which are gradually destroyed by the bombs, 
but which are built up again when a bag is returned to the left hand side 
Each bag contains a random amount of money which is added to the player's 
score, and the barricades are strengthened by random amounts, and randomly 
selected. Totally machine code. Good game. 


INVADERS $10.00 

A space invaders game all in machine code. 
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ADVEMTORg - GAMES 


DOUBLE AGENT 

A very good 3-D adventure game, with sound and grajAics. 


$15.00 


COLOUR QUEST 1 - FIND THE DIAMOND OF BALMARLON 


COLOUR QUEST 2 - THE VEGAN INCIDENT 


COLOUR QUEST 4 - CAMELOT 

There are two versions of this, one for old rows, one for new roms. 


COLOUR QUEST 5 - SHIPWRECK 

There are two versions of this, one for old roms, one for new roms 


$ 10.00 


$ 10.00 


$ 10.00 


$ 10.00 


s^:jsjJs>|£s}c:4£s|s;je^jjcs|s5iJ^5!s^s|s^^5}c3{csjsj}c5isj}cs{e5|s5|s:^jjss}ss;cs|e>|e:ijcjjc5is5|ss|«s|c>js5|s5;cj|e5|ejJc:{ss[c^^>!cj|s5|c5^sJcjisyiCj|«5{c 

► NEXT MEETING 23 JULY 84 

ALL SAINTS CHURCH HALL : 8 .oo PM. 

PLEASE NOTE CHANGE FROM NORMAL TIME : : 


-)Hf * ^ ^ •if- 
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UTILITY PROaaMS 

ORGEL . * $12.00 

Turn your computer into an organ. Instructions with this. 


DISASSEMBLER $15.00 
Generates assembly listings of machine code for any memory location in the 
Genie. Programme will disassemble any section of memory location between 0 
and 65535, and print out the assembly listing. 


ZEN $20.00 
You have to have this to write machine code programmes. Contains a 
Monitor, Assembler, and debugger. 16 page instruction manual with this. 


THE LINK $12.00 
This programme enables you to load TRS-80 and System 80 programmes into 
your computer, by altering the baud rate. Once these programmes are in the 
computer, you then have to alter screen layout, and other differences 
between the machines before the programmes will run. This would be fairly 
easy to do with basic, providing there are not too many pokes involved, but 
it would be difficult with machine code, unless you had a good working 
knowledge of that language. 



313 GREAT SOUTH ROAD, PAPAKURA 
BOX 262 PAPAKURA. PH. 290-6317 


FAIRMATE 


DATA RECORDER 



Top 

quality, has all necessary 
features — tape counter, 
level control, LE D. 
record light. Battery 
operated or with AC 
adaptor (optional extra) . 

I CAuAA»rrec 
WlUL CMP ^UL 


CP 80 


PRINTER 


Printer type; 


Print speed: 
Head format: 
Graphics 
modes: 

Std chars/tine: 
Max 
chars/line: 
Paper feed: 
Max paper 
width: 
Std imerface: 
Ribbon type: 
Options: 


Dot-matrix, 
bidirectional, logic 
seeking 
80 cps 
9x8 dots 

640/1280 
dots per line 
80 

142 

Friction/sprockat 

lOin 

Centronics parallel 
Cartridge 
RS232C interface 


$585 


313 GREAT SOUTH ROAD, PAPAKURA 
BOX 262 PAPAKURA. PH. 298-6317 
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Conversion chart ^or^o\Je5or^ . 

This qnicknfomieachmrl shows MmofthaTMiatioasintM BASIC luad by thamachiiM* in this book. Itdoos 
Mt inetads iMtnctloas for gnphics, soaad or colonr as thoss vary so oaenBoasly from mackins tomachias. 
Neta also that although most coaputars (axcspt tha BBC) ssa PEEK and POKE, they do aot Bsa tko sans systam 
of nomiry addzaasas, so tha Bonibors vsad with PEEK and POKE mast ha chaiigad for aachcoapotar. 


VIC/Pat 


RND(irN+l RND(l)’N+i 



BBC 

Salaeliawlaai 

aassjasaasai 

RND(1) 

Salaatiaoeaw 
BBomaskatwaao 1 
asdH 

RMXN) 

Salact laadaw lanas 
batwaaaAaadZ 

CHRS(RND(26)-r6t) 

Claatsessan 

COS 

Chackkaybaaidta 

saaifkarbaiae 

prassad 

DOEYKN) 

Coaveit duufacMfs 
ial» ce4* asabei* 

Asenn 

(uftiog ASen code) 

Movecaiaorvp 

PRINT CHRSCll) 

Mot* canor dawm 

PRINT CHRSC 10) 

Maveousoftolt 

PRINT CHRSS) 

Ms*a aaiaar itfhl 

PRINT CHRKS) 

TahalMN 
ehataWasB of stilag 

LEFTKASJf) 

TftkslMlN 
ehancton of sdrlBe 

R1CHTKAS.N) 

TftkomiddloN 
clunelon of ititoa 

M1I)KAS.N1.N2) 


CHn(INT(ltND(l) 

■ze-fes)) 


PRINT CKRKUT) 


CHXS(1NT(RND(1} 

■26+6S)) 


ASCCTH 

(uiino ASen coda) 


xs-- • 

IFPEEt(-163M) 
M27 THEN GET XS 


Asenn 

(using ASen coda) 


ASC(Tn 

(using ASCD coda) 


PRlNTCHRSdtS) CALI-9M PRlNTCntRSCZT) 


PR1NTCHRJ(I7) PRINTCHRJdO) PRINT CHIIKZS) 


PRINT (»RS(1S7) PRINT CHRKS) PRINT C»RS(24) 


PRMTCHRSIZa) PRINTCHR3(21) PRlNTCHRt(2S) 


LEFTKASJO LEFTKAUO LEFTtCAlN) 


R1CHTS(AS.N) RiCHTt(AS.N) R1CHTS(AJ.N) RICKTKASM 


ZX Spectrum 

ZX81 

RND 

RND 

RND*N+I 

RND‘N+1 

C31RKINT(RND‘28i-6S)) 

CHRKINT(RND’26 - 38)) 

CLS 

CLS 

DOEn 

INKEn 

CODEm 

(usineASCIIcoda) 

CODECn 
(using ZX81 coda) 

PRINTCKHKil) 

PRINTCHRKUt) 

PRINT CHRK 10) 

PRINT CHRKII3) 

PRDfTCHRKS) 

PRINT CHRKIM) 

PRINT CHRKS) 

PRINT CHRK 11 3) 

AKITON) 

AKITON) 

AKNTO ) 

1 AKNTO ) 

AKN1TON2) 

AS(NlTON2) 


ASCII chart 


Coda ASCII Cads ASCII 
numOai chasaelai niunbai chaiactar 


Chart of screen sizes 


VIC 20 


TRS-80 


BBC 


ZX81 


ZX Spectrum 


Apple 


ZX81 code chart 


Cods ZXSI Coda ZX8I 

niimb«r charaettr numbor chMACttr 




Max. number of 
characters across 
(or number of columns) 

Max. number of 

lines down 

(or number of rows) 

22 

23 

64 

16 

20/40/80 

16/24/32 

32 

22 

32 

22 

40 

25 


‘tZtfiC*. Ch4fM How much IS 27 mmus 67'" 






































































































































































































































































Most (if not all) members have programs that have taken a little locating. In 
general many of these relate to the more technical or internal memory of the computer. 
You will probably recognise the value of the three programs that follow. Well worth the 
effort of putting on tape and adding to your own library. 


10 ' nilCROSOFT BASIC FUNCTIONS 
NAME LI-ST IN LEVEL 11 ROM 

15 ' 

20 CLS;F0RN-5712T06175:Y-PEEK<N>: IFY>127THENY-Y-12S-M»N 
25 2»N'+-1 : IFPEEK<2>>127THENPRINTCHR»<Y>;TfiB<7>" = '‘;ELSEG0T035 
30 PRINT TRB<8)M: :GOTO40 
35 PRINTCHR*<Y); 

40 NEXT 

10 ' PROGRAM TO MATCH BASIC FUNCTIONS 
WITH CALL ADDRESSES 
15 ' 

20 CLS-.PRINT"FUNCT”TAB<8)"«HDDRESS LSB-MSB" 

25 A=6 1 76 : FORX-57 1 2T06 1 75 ; Y“PEEKC X ) ; I F Y > 1 27THENY=Y- 1 28 
30 Z=X+-1 : IFPEEKC Z )>127THENPRINTCHR*< Y >; TRB< 8 ; ELSEG0T045 

35 R=H+2: IFR-6352THENR-5640 

40 FRINTA.PEEKC A>J ”-";PEEK<A+l >; : PRINT : GOTO50 
45 PRIHTCHR*<Y>; 

50 NEXT 

/ - 

/ 


10 PR»17462:X=4069 
20 CLS:PRINTa0,TRB< 18); “MENU" 

30 FORL-1742STO17430:POKEL+8.HRC00, 1 1 ^ NEXT 
40 P0KE16419,7:PRlNT0e7, "TYPE 1 FOR DECIMAL TO HEX" 

50 PR INTO 127, "TYPE 2 FOR HEX TO DECIMAL" 

60 PRINT : PRINT ; INPUTR 
70 IFR=1THEN100 
80 IFRO2THEN40 
90 GOTO210 

100 COLOURl ;CLS:PRINTa0, “Input Decimal Number " ; : INPUTDEC : IF NOT<DEC>0>OR N0T< DE 
C< 65536) THEN PRINTBO , CHR*< 30 ); : GOTOl 00 
110 DC1«DEC:DEC»DECXX:GOSUB160 

120 CNV=H1 : GOSUB170 ; CNV-H2 : GOSUB170 : CHV=H3 : GOSUB170 : CNV-H4 : GOSUB170 
130 PRINTa280, "ACAIN 7 CType'V' to continue else ' N' )" ; : INPUTR» 

140 IFR»-"V"THEN COTO100ELSEGOTO20 
150 . 

160 H1 = IHT< DEC ) : DEC=Hl*X : A-DCl-DEC ; B-A : H2=INT( R."256 ) : H4«B-': H2T256 ) : H3"INT< H4-'16 ) 

; h4=H4-C H3* 16): RETURN 

170 CNV-CNV+48; IFCNV>57 CHV-CNV+7 

180 IFCNV<48THENCNV-48 

190 COLOUR4!pRINTO40, "Hexidecimal : POKEPR, CNV ; CP=PR+8.HRC00 :POKECP, OS : PR-PR+1 
200 FORL- 1 TO50 : NEXT = RETURN 
210 CLS;C0L0UR2: 

220 PRINT»0, "ENTER Hex i decimal Number INPUTHXS 
230 IF LENCHX*)<>4:PRINT«0,CHR*<30); :GOTO220 

240 F 1 -ASCC LEFT**: HX* , I ) ) : F2-RSCC RI GHT»< HX» , 3 ) ) F3=RSC< R I GHT*< HX* , 2 ) ) : F4<=RSC( R I GH 
T*< HX», 1 )) 

250 IF Fl>57THENFl»Fl-7 ELSE IF FKOTHEN Fl»0 

260 IF F2>57THENF2-F2-7ELSEIFF2<0THENF2-0 

270 I FF3 >57THENF3-F3-7ELSE I FF3< 0THENF3-0 

280 I FF4 >57THENF4«F4-7ELSE 1 FF4< 0THENF 4=0 

290 F1=F1-48:IF Fl<0THENFl-0 

300 F2-F2-48‘. IF F2<0THENF2-0 

310 F3-F3-48:IF F3<0THENF3-0 

320 F4=F4-48:IF F4<0THENF4«0 

330 F 1 -F 1 *4096 : F2=F2»256 : F3-F3* 1 6 

340 HX=F1+F2+F3+F4 

350 COLOUR7:PRINTa40, "Decimal Number = ",HX 
360 MSB=INT(HX/'256) 

370 LSB=HX-< MSB*256 ) 

380 COLOURS : PR I NTQ335, “MSB - ";MSB 
390 C0L0UR2-.PRINTa375, "LSB ■ ";LSB 
400 PRINT; PR I NT 

410 COLOUR4-.PRINT"AHOTHER 7 <'Y' for another 90 els* 'N' )" 

420 X*=INKEY*: 1FX*-""THEN420 
430 IFX*<>"Y"THEN20 
440 COTO210 
450 END 


PROGRAMMABLE GRAPHIC GENERATOR 


10 AD— 3072:L»128 
20 GOTO 1630 

30 REM:: SCREEN DISPLAY;: 

40 A«-'‘£1234S67ai2345678E'' 

50 CUS;C0L0UR1 :PRINT»85,AI 
60 J-124 “ 

70 FOR N-lTOa 

80 prints; ,N:PR.INT»J+17,N 

90 J=J+40 

100 NEXT N 

110 J-444 

120 FOR N»1 TO 8 

130 prints;, N;PRINTSJ+17,N 

140 ;=;+40 

ISO NEXT N 

160 PRINTS765,A» 

170 COLOUR7 

180 PRINTS243, "A" ; PRINTS265 , “B“ : PRINTS603 . "C" : PRINTS625 , "D“ 

190 C0L0UR2 

200 PRINTS920, “PRESS -D- WHEN GRAPHICS ARE COMPLETE" 

210 GOTO 1680 

220 REM: : PR I NT DATA: : 

230 COLOUR4:CLS 

240 PRINTS400. “A- DATA" : Al ; “ , “ ; A2 ; " . " ; A3; " , “ ; A4 : " , " ; A5; “ , “ ; A6; “ , “ ; A7; " 
250 PRINTS480,“B= DATA" ;Bl ; " , " ; B2 ; " , “ ; B3 ; " , “ ; B4 ; “ , “ ; B5; “ , " ; B6 ; " , " ; B7 ; “ 
260 PRINTS560, "C- DATA";Cl; " , “ ; C2 ; “ , " ; C3 ; " , “ ; C4 ; " , " ; C5 ; “ , " ; C6; “ , " ; C7 ; “ 
270 PRINTS640. “D= DATA“;D1; “ , ";D2; " , "D3; “ . " ; D4 ; " . ";D5; " , " ; D6; " . " ; D7; “ , 
280 GOTO 1760 

290 REM; : TITLE 6 DESCRIPTIOIM : 

300 CLS: COLOURS 

310 PRINT" iHWSBWWimBHg^WiCRAPH I C " 

320 PRINT" GENERATOR* - 

330 PRINT:PRlNT;PRINT“» t,W lAr m h»'C.BISHOP 1980" 

340 PR I NT: PR I NT: PR I NT: PR I NT: PR I NT" THE PROGRAM PRODUCES PROGRAMABLE" 
350 PRINT" CHARACTERS IN BLOCKS OF 4 AT A TIME " 

360 PRINT" IN SEQUENTIAL NO* STARTING AT CHR*(128) 

370 FOR ;=1 TO 800: NEXT 1 

380 PRINT; PRINT :PRINT"PRESS -S- START OR PRESS -? 

RUCTIONS" 

390 A$=INKEY$ 

400 IF A»="" GOTO 390 ELSE 410 
410 IF A«="/" GOTO 1740 
420 IF A»-"S“ GOTO 1660 
430 GOTO 380 

440 REM; : CURSOR MOVEMENT: : 

450 0=686 : PRINTSC, 

460 K$=INKEY« 

\470 IF K$="" GOTO 460 
^480 IF K$»"D" GOTO 490 ELSE 550 
490 COLOURS : PR I NTS8 05, "TYPE -Y- TO CONFIRM" 

500 PRINTSa45, "GRAPHICS ARE FINISHED" 

510 K«=INKEY»:IF Kl-"" GOTO 490 ELSE 520 
520 IF K»-"Y" THEN GOTO 1700 ELSE GOTO 530 
530 FOR B=804T0a79 :PRINTSB, " "; 

540 NEXT B 

550 IP K»-“ “ THEN PRINTSC,"" 

560 IF K»*“C“ THEN PRINTSC," " 

570 IF PEEK ( 16444) =8 THEN C«C-40 .'PRINTSC, 

I 580 IP PEEK! 16444)»32 THEN C=C-1 : PRINTSC, 

590 IF PEEK! 16444 )_-64_ THEN C»C+ n PRINTSC , 

600 IF PEEK! 16444)=16 THEN ‘0=0+40 : PRINTSC, "•" 

610 GOTO 460 

620 REM : : DATA CALC ' S : : 

630 COLOUR 1 

640 FOR S-P TO P+7 

650 C=PEEK(S> 

660 IF G=202 THEN V=V+X ELSE V-V+0 
670 X=X/2 
680 NEXT S 
690 RETURN 

700 REM: : INSTRUCTIONS: : 

710 CLS:COLOUR4 

720 PR I NT: print: PR I NT "CURRENT POSITION OF CURSOR IS SHOWN" 

730 PRINT " BY ( ■ )" 

740 PRINT: PRINT :PRINT"THIS IS MOVED BY USING THE ARROW KEYS" 

750 PRINT; PRINT :PRINT"PRESSING THE SPACE BAR WILL PRODUCE 
760 PRINT" THIS WILL BE RECORDED AS PART OF" 


, " ; AS 
, “ ; BB 
,“;C8 
“;D8 


- FOR INST 


770 PRINT" YOUR CHARACTER" 

780 PRINT: PRINT: PRINT" IF YOU GO OVER A THEN ■ WILL 
790 PRINT" & YOU MUST PRESS THE SPACE BAR AGAIN* 
800 PRINT: PRINT: PRINT" PRESS ANY KEY TO CONTINUE" 
810 REM: 

820 KI«1NKEY$:1P K»-*" THEN GOTO 810 ELSE GOTO 1660 
830 REM : : DATA CALSULAT I ONS : : 

840 PRINT8390, "WORKING" 

850 V-0:X«128:P>t7494:GOSUB 630 
860 Al-V:POKEAD,Al 
870 V-0:X« 128: P-1 7534: COSUB 630 
880 A2-V:POKEAD-M ,A2 
890 V-0:X- 128: P-1 7574: COSUB 630 
900 A3-V:POKEAD+2,A3 
910 V-0:X-128:P-17614:G0SUB 630 
920 A4-V:POKEAD+3,A4 
930 V>0:X- 128: P-1 7654: COSUB 630 
940 A5-V:POKEAD+4,A5 
950 V-0:X-12B:P-17694:G0SUB 630 
960 A6-V:POKEAO-f5.A6 
970 V-0:X-128:P»17734:C0SUB 630 
900 A7-V:POKEAD+6,A7 
990 V-0:X-12B;P-17774:GOSUB 630 
1000 A8-V ; POKEAD-^7 , A8 
1010 V-0 : X- 128: P-1 7502 :GOSUB 630 
1020 B1-V:P0KEAD+8.B1 
1030 V-0:X-12a:P-17542:GOSUB 630 
1040 B2-V:POKEAD+9,B2 
*050 V-0 : X- 128: P-1 7582 :G0SUB 630 
1060 B3-V;POKEAD-»'10,B3 
1070 V-0:X»128:P-17622:G0SUB 630 
1080 B4-V:P0KEAD+1 1 .B4 
1090 V-0 : X- 128: P-1 7662 :GOSUB 630 
1100 BS-V:POK£AO-fl2,B5 
1110 V=0 :X- 128: P-17702 :GOSUB 630 
1120 B6-V : POKEAD-t- 1 3 , B6 
1130 V-0 : X- 128: P-1 7742 :GOSUB 630 
1140 B7=V:POKEAO+14,B7 
1150 V=0:X=128:P»t7782:G0SUB 630 
1160 BB»V;POKEAD+15,B8 
1170 V=0:X*128:P-17814:G0SUB 630 
1180 C1=V:P0KEAD+16,C1 
1190 V-0 :x» 128: P-1 7854 : COSUB 630 
1200 C2-V : POKEAD+ 1 7 , C2 
1210 V=0:X*128:P-17a94:GOSUB 630 
1220 C3-V:POKEADf 18,C3 
1230 V-0 : X- 128: P-1 7934 :GOSUB 630 
1240 C4-V:POKEAD+19,C4 
1250 V-0:X-128:P-17974:GOSUB 630 
1260 C5'=VTPOKEAD+20.C5 
'270 V-0;X-128:P-18014:COSUB 630 
280 C6«V:POKEAD-»'21 .C6 
1290 V-0 :X- 128: P-1 8054; COSUB 630 
1300 C7-V:POKEAD+22,C7 
1310 V-0 : X- 128: P-1 8094 ;G05UB 630 
1320 C8-V:POKEAO-f23,C8 
1330 V-0:X-128:P-17822:C0SUB 630 
1340 D1-V:P0KEAD+24,D1 
1350 V-0 ;X- 128; P-1 7862: COSUB 630 
1360 D2-V:POKEAD+25,D2 
1370 V-0 : X- 128: P-1 7902 :G0SUB 630 
1380 03-V:P0KEA0-t-26,D3 
1390 V-0 :X« 128: P-1 7942: COSUB 630 
1400 D4-V:POKEAD+27,D4 
1410 V-0 ;X- 128: P-1 7982; COSUB 630 
1420 05-V:P0KEADi-2B,05 
1430 V-0 ;X- 128; P-1 8022: COSUB 630 
1440 06-V:P0K£A04'29.06 
1450 V-0 : X- 128: P-1 8062 ;GOSUB 630 
1460 D7»V;P0KEAD+30,D7 
1470 V-0;X-128:P-18102:C0SUB 630 
1480 D8-V:POKEAOi-31 .08 
1490 GOTO 1720 


APPEAR" 


1 C0LQUR7:CLS;PB1IITTAB( 131 'DOORS' 

2 PRUfTTABdOl' CRaTlVE COIPUTIHC 

3 PRINnftB(9l' nORRlSTOW. IIEll JERSEY * 

4 PRIKT 

5 PRIKT 
4 PRINT 

:S DIH K120) 

31 X»0 

32 FOR X«0 TO 4IREAD RI(X>;KEXT X;X*0 

33 FOR X=0 TO 6;REIU) SKXIIHEXT X 

35 D-1:T>RKD(14):N<RND(4);K3>(RND<M))-1 
37 IF T>(K3*K) THEN GOTO 35 

40 PRIKT'THERE ARE •;N,"LOCnD DOORS' 

41 PRINT'AND THERE AIE'7K3:*KEYS(0-*K3-1')' 

42 PRIKT'YOU Kia HAVE '.'T-ll'TRIES TO OPEK THEM Aa* 

43 PRIKT' (SOME KEYS HAY OPEK BORE THAK ONE DOOR)' 

63 FOR X-2 TO K;K(X)*RKD(K3)-l:KEXT X 

70 T=T-l;IF T^O THEK 150 

80 FRINT'TRIES LEFT 1'.^;* DOOR |•;D;'KEY'; 

90 INPUT K2 

100 IF K2<>K!D) THEN 70 
110 PRINT S«(R®(7)-n;D*D91 
120 IF D<N+1 THEN 70 
125 PRINT 

130 FRINT'YOU DID IT, BEHIND DOOR l';N;'IS 

140 PRINT R4l!tND(7)-ll 'Il'iGOTO 170 

150 FRINT'YOU LOSE, THE REST OF THE KEYS ARE:' 

UO FOR X=D TO N:PRIKT*DOOR';X;'KEY'K(X);NEXT X 
no PRINT'DO YOU NAKT TO PLAY AGAINIYES SIR' OR NO SIR')' 

171 INPUT Q« 

180 IF Q»='YES SIRI'THEH 35 

181 IF Q1=-N0 SIR" THEN 999 

190 PRINT' I NAS NOT BORN YESTERDAY YOU KKOK )! GET IT RIGHT THIS TIKE 
195 PRINTiPRINT 
200 GOTO 170 

500 DATA 'A POT OF COLD*, 'A BEAUTIFUL HA1DEN','A BAH EATING TIGER' 

505 DATA'NOTHING','»22.59*,*A ROLLS ROYCE','THE KEYS TO THE NORLD* 

600 DATA'OPEN SESAME! *,'C-fi-E-E-E-E-A-A-K",*M LAHI','TA-DAH!* 

605 DATA*ABRACADAERAI*,*CLICK I '. I! I?! !????!! ! I ! ! '* ,*SUPRISE! ' 

607 RESTORE 
999 END 


y 


y 



IH 


1500 
1510 
1520 
1530 
1540 
1550 
1560 
1570 
1580 
1590 
1600 
1610 
1620 
1630 
1640 
1650 
1660 
1670 
1 680 
1690 
1700 
1710 
1720 
1730 
1740 
1750 
1760 
1770 
1780 
1790 
1800 
1810 
1820 
1830 
1840 
1850 
1 860 
1870 
1890 
1890 
1900 
1910 
1920 
1930 
1 940 
1950 
1960 
1970 
1900 
1990 
2000 
2010 
2020 
2030 
2040 
2050 
2060 
2070 
2080 
2090 
2100 
2110 
2120 
2130 
2140 
2150 
2160 
2170 
2180 
2190 
2200 
2210 
2220 
2230 
2240 
2250 
2260 
2270 
2280 
2290 
2300 
2310 
2320 
2330 


COLOURa:PRINT840, "THE CHARACTERS YOU HAVE JUST DRAWN" 
PRINT»80,"HAVE BEEN ENTERED AS CHR»(";L;") TO" 
PHINT*120,*CHR»(";L*-3;") " 

PRINT# 160, "THESE CHR'S WILL STAY IN THE MEMORY" 
PRIHT»ZQ0, "EVEN AFTER ( NEW ) IS TYPED" 

PHINTt240, "UNTIL THE COMPUTER IS SWITCHED OFF" 
PRIMT#2aO, "OR THEY ARE REPLACED BY RUNNING THIS" 
PRINT»32<V,"PROGHAM FROM START." * 

PRINT#760. "NOTE THE DATA FOR FUTURE REFERENCE" 
PRINTSeOO, “BEFORE CONTINUING. 

COLOUR7:PRINT»80O,"PRESS ANY KEY TO CONTINUE" 
Kt>lNKEYt 

IF K*«"" GOTO 1610 ELSE GOTO 1780 
REM; :MAIN MENU: : 

REM.-tTITLE «. DESCRIPTION 9 290:: 

GOTO 290 

REM; : SCREEN DISPAY 9 30 ; : 

GOSUB 30 

REM;. 'CURSOR MOVEMENT 9 440:: 

GOSUB 440 

REM; ;DATA CALC'S 9 830: : 

GOTO 830 

REM: ;PRINT DATA 9 220: ; 

GOTO 220 

REM: : INSTRUCTIONS 9 700: : 

GOTO 700 

REM;;FINAL INSTRUCTIONS 9 1500:: 

GOTO 1500 
REM :; OPTIONS:; 

CLS ; COIlOUR4 ; PRINT : PRINT : PRINT : PRINT 
PRINT" SELECT ONE OF THE OPTIONS BELOW" 
PRINT:PRINT;PRINT:PRINT 
PRINT" 1. RUN PROGRAM FROM START" 

PRINT" 2. CREATE ADDITIONAL CHR'S" 

PRINT" 3. VIEW CHARACTERS" 

PRINT" 4. REVIEW LAST DATA SET" 

PRINT" 5. EXIT PROGRAM" 

PRINT; PRINT; PRINT" PRESS < No > «, < RETURN > 

INPUT R 

ON R GOTO 10.1900.1910,230,2290 
AD»AD+32;L»L+4:GOTO 30 
CLS : PRINT : PRINT : PRINT ; PRINT 
PRINT" YOU CAN HAVE 
PRINT: PRINT 

PRINT" 1. CHARACTERS IN BLOCKS OF 4" 
PRINT;PRINT;PRINT" fflffl" 

PRINT" OO" 

PRINT;PRINT;PR1NT 

PRINT" 2. CHARACTERS IN LINE" 

PRINT:PRINT;PRINT" Q B ffl ffl" 

K4-INKEY* 

IF K»»"" GOTO 2000 ELSE 2020 
IF K»="l" GOTO 2040 ELSE 2030 
IF K«»“2" GOTO 2210 ELSE 2000 
REM CHR ' S ( 1 ) ; : 

P«12a 

CLS : COLOUR 1 
PRINT9139,CHR* (P) 

PRINT# 140, CHR* (P+1 ) 

PR 1 NT9 179, CHR* ( P+ 2 ) 

PRlNT9180,CHR*(P+3) 

COLOUR4 

PRINT#130,P; PRINT#! 50, P+1 : PRI NTS 1 70 , P+2 : PRINT91 90 , P+3 
PRINT#242, "PRESS -M- FOR NEXT SET OF CHARACTERS" 
PRINT#330,' OR" 

PRINT#4lO. “-K- TO RETURN TO OPTIONS" 

K*-'INKEY* 

IF K*="M" THEN GOTO 2190 ELSE GOTO 2180 

IF K*»"K" THEN GOTO 1780 ELSE GOTO 2160 

P=P+4 

GOTO 2060 

REM : : CHR ' S ( 2 ) ; : 

CLS .'FOR Q-128 TO L+3 
PRINTCHH* (Q) , 

NEXT Q 
GOTO 2260 

PRINT#760, "PRESS K TO RETUN TO OPTIONS" 

K*«INKEY* 

IF K*»"K" GOTO 1780 ELSE GOTO 2270 
CLS:COLOUR2:PRINT»100,"H A V E" 

COLOUR4; PRINT# 140," A" 

COLOUR7;PRINT»180,"R OTTEN" 

COLOURS ;PRINT#220," DAY" 

COLOUR 1 ; ;end 


ICUtt ION 
to as:Diuiioii;cauan 
20 niIR:MII»l 

30 niinuttsi ’ scawim eks* 

40 Kin 

41 COMUM _ 

SO nilTTHIS IS TIC CMC or SCRMLED ECES.' 

40 ntn'oiBc Yoo via soci stE nuT 0 nr 

70 nir*piniB tiu lau ic soMnus* . 

00 p«tn*FiKas.rau «ia be civn oumiou* 

TO niiT’saECTm fooh raw catecories.* 

100 raillT'ITC COIECCSY IS SELECTED RSWOIILI.' 

120 COSUB 30M 

130 CLS:n)lllT:COL0W4 

140 PRIIIT 'SNSKSS Ota BE EVTOiai USIK' 

130 PRin'CVLT TIC LETTOS) SETS.' 
lU niXT'THE BEIM KET Via HOT BE USED.' 

170 raiVT'TDU HAVE ROUCILT 30 SECONDS EW' 

100 niVT'QUESTIOV.EACU FOIVT IS WRm tl.OO’ 

ITO PBINT'AIE) FICUSB) AS FXLOVS : ' 

200 miVT'EACH LETTEB PEI AVSVa IS Win 1 POINT' 

210 PIIVT'IF rOU ANSIO INCOiMeCTLTITW ONLY' 

230 rain'CET ONE CHAICE PER QOESTICNI.TOU' 

240 PfilNT'Via BE CHARGED THAT lumr POINTS ' 

210 PRIRT'ACAINST TIC CORRECT ANSNER IN REMRT.' 

233 PRINT'PLUS THE SECONDS YOU TOOK TO ANSNER IT* 

240 COSUB SOOOlCLSlCOLOURI 
270 PRINT 

280 PRIKT'CORRECT ANSNERS 

290 PRINT'TOU CAN OBTAIN THE HIGHEST POINTS BY' 

300 PRINT'ANSNERINC CORRECTLY VITHIN 10 SECONDS' 

3'' ^INT'EUNPLE:IF YOUR ANSNER IS CORRECT NITHIN' 

INT'IO SECONDS YOU Nia CAIN 20 POINTSITINE' 

33U PRINT'REXAININCI .AND A POINT roR EACH LETTER.' 

340 PRINT'OTHERNISE A CORRECT ANSNER Nia CAIN YOU' 

330 PRINT'S POINT FOR EACH LETTER IN THE ANSNER.' 

340 PRINT' IF YOUR ALLOYED TINE EIPIRES AU) YOU DO' 

370 PBINT'NOT ANSNER, YOU LOSE 30 POINTSITINE TAHEN' 

3S0 PRINT'AND A POINT FDR EACH LETTER IN THE ' 

340 PBINT'CORRECT ANSNER IN NEHORY.' 

343 COSUB 3000;CLS:PR1NT:COLOUR4 

347 PRINT'REHENBER, ENTER THE ANSNER USING ONLY THE' 

34S PRIRT'LETTER KEYS.THEN PRESS THE OEIII' 

400 PRINT'TO STOP THE CLOCK AND COBPARE YOUR' 

403 PRINT'ANSNER.YOU Nia SOON CATCH ON...' 

410 COSUB 3000:CLS:COL0URB 
413 FOR Z<tTO 4'.HIZI*2:NEIT 

420 P»30:T*350;E*10;TP»0:RI«'7';Dl«'l':Ft*'.0«".l>0 
430 I=1NTI3<RHO<OI4U 

433 IF NUI<OAN!1HI2I>OANDHI3I>OANI1RI4I°OTHER 1200 

440 IFNI 1 1 •OTHER 430 

443 OH I GOTO 430,440,470,410 

430 CI»'ANmALS':ZI>'24B.OO';H»l:COTO 440 

440 Ct^'RIJED':2f'l243.00':H*2;COTO 440 

170 Cl*'lNSECTS';ZI»'«234.0fl':H«3:GOTO 440 

480 Cf'OICTIONARY':Z4»'l278.00';R»4;COTO 440 

440 IF R>0 THEN 740 

500 FOR A>1TQ 40;R£ADAIIAI iNEIT 

503 OATAELEPHAIIT. GIRAFFE. CHEETAH. HIPPOPOTAHUS, RHINOCEROS. DOC, TIGER.COV.GORILU.nOA 
513 DAIAIRRATIONAL.HOAZ, ENDURE. DIET. HECHANISN. SOUTH ISLAND. TRANSISTOR.CANES.TUBE.APFIE 

3 ASPIDER.FLEA.FIY.ANT. TICK, LOCUST, CENTIPEDE, LAOTBIRD.BUTTERFLY.TERRITE 

333 „aTA inPDSTER.COBTICIENI, betray. storage, VOCATION.TRINAL, suppose, POSTSCRIPT, HEASURE, AFFIDAVIT 

300 REN READ CATEGORY OUESTIDNS 

540 FDR 3>31 TO TOlREADAIIQKKIT 

400 DATA LARGEST LAND ANIHAL.TALLEST OF Aa DUADRUPEDS 

410 DATA HUNTING LEOPARD OF IIOIA.THE RIVER HORSE 

420 DATA ONE OR TNO HORNS ON THE SNOUT, A OOHESTICATED ANIHAL 

430 DATA A LARGE FIERCE RAPACIOUS OUADRira). GIVES NIU 

440 DATA LARGEST APE NNONN.aTINCT BIRD 

430 DATA ABSURO.PRACTICAL lOKE.FUT UP NITH.SFECIAL REPESENCE TO FOOD 
4U DATA PARTS OF A NACHINE.'TNE HAINLAND 7’ 

470 DATA A SHAa COffONENT RBUCINC THE VALVE, FUN-FTXILIC 
400 DATA A PIPE.A RED FRUIT TREE 

440 DATA HAS EIGHT LECS.BLOOO SUCKING PARASITIC.A TVO HINGED INSECT 

TOO DATA INVADES PICNICS.ANOIHER BLDOO SUCNINC PARASITIC 

710 DATA DESTRUCTIVE NUKED INSECT, SUPPOSED ID HAVE ONE HUIEIRB) LECS 

720 DATA NARXB) NIIH BLACK SPOTS.AN AOXI CATERPILLAN 

730 DATA A HOOD EATINC INSECT 

740 DATA AN ASSUD) CHMACTES.eOOPERATINC KITH ANOTIEN 

730 DATA OECIEVE, SPACE FOR COCOS, CCCUPATICN.PmAINIK TO TWEE 

740 DATA TO IHACINE, PARAGRAPH ADOES TO TW END OF A LETTER 

TTO DATA VGURE OR EZIOT OF ANTTHING COrARED 

710 DATA SNOIH STAIEICNT II NIITINC 

740 REN miNT - OUESTION START LOOP 

743 PRIIT'OOI'T TTFE IDO FAST AK) DOR'T BACKSPACE' 

744 PRINT 

T4T PftINT'CAIECORT : '.'04 

748 niNT'NIN UP TO ';ZI:' IN TNIS CATECORT.' 

800 PRIIT 


803 PRINT' IF REAOTT 'ICOSUN 3000;CLS;PRINT 
810 ON A GOTO 820,1030,1070,1040 
820 >!l;S*l:A-l',OI>" 

830 nilT 
833 PRINTAIiailNI 

840 Yi>IHKTI;IF It-'l'TNB SS*INTIS/10I iCOtO 840 
830 «•" 

870 LI*LI*II:a4>HIOItLI.I,ll 
873 NI»N4.H:PR1NT Nt; 

880 S>SM:IF SOT THEN 840 

883 CQ'LENIAtlAIKGOSUB 4IOO:COSIB 4200;COTO 440:RCN CUT OF HIE 
840 at>Lt:(XMiX(AIIAII;CO>L£NIOil 
400 REH CDHPARE STRINGS 
410 IF OMAilAI TWN 430 

420 COSUB40S0:COSU84200: COSUB 7000:PRINTAIIAI ICOTO 440.'BEN INCORRECT 

430 COSUB 4000:COSUB 42O0:COSIIB BOOO:RER CORRECT 

440 S<r.A<A»I:a^C»l 

430 IF H«1 AND 0041 tt(E3I 830 

443 IF H»2 AMD 0071 THEN 830 

470 IF N>3 AND 0081 THEN 830 

480 IF n<4 AND 0041 THEN 830 

1020 HIII*0'.R<1: OOTO 420:R£H ANOTHER CAItCOtT 

1050 Q=41:S^l'.A»ll:Ot«":Lt«" 

1040 GOTO 830 

1070 Q»71:5«l:A>:i;QU";LI*" 

1080 GOTO 830 

1040 0=8r.S'l:A«3l;QI*":LI>" 

HOC GOTO 830 

1200 GOSUB SOOOiCLS'.PRINT 

1210 PRINT'OUT OF 40 QUESTIONS,' 

1220 PRINT'THE TOTAL ANOUNT Of HONEY TOO' 

1230 raiNT'ACCUNULAIED HAS ; '.'Ot; 

1240 PRIIIT PT. FI 
1250 PRINT 
1255 HP»1045 

124) PRINT'HICHEST POSSIBLE ANOUNT NAS : "OrNP-Ft 
1270 PRINT 

1280 rRlNT'VOULO YOU FEa LIKE SDIE NORET. I YES OR NO 

1240 INPUT INI 

1300 IF INI O 'NO' THDI 1320 

1310 OOTO 1330 

1320 RESTORE:R>0:PF<0:OOTO 410 
1330 PRIIIT 

1340 PRINT'SD LONG ' 

1330 PRINT'END DF CAIC.* 

1353 PRIIIT:PRINT:PRINT'Fl£ASC TRY NE AGAIN. ...SOOT 
1340 END 

4000 PfilNTlPRINT 
4010 PRlNT'COfiRECT •!' 

4020 IF SS<10 THEN TP«TP*(»«20:PT«PT*OO*20:COT0 4040 

4030 TP*TP*QQ 

4040 LI*":0I*":RET1IHN 

4030 FRINTlFRlHT 

4040 PRINT' INCORRECT RESPONSE' 

4070 TP=TP-Ofl-SS 
4073 PT*PT-flO-5S 
4080 LI«":ai«":REIUR» 

4100 PRINTlPRlNT 
4103 SS<30 

4120 TP^TP-<»-55:PT*PT-00-SS 

4123 IF TP»0 THE31 IP«TP*(»»SS;FT»PT*00*SS 

4130 

4140 RETURN 

4200 REH AHOUNT ACCRUED 

4210 IF TP>0 no PRINT'ANDWT ACCRUQl : ';D4.’TF:FI:GOTO 4230 
4220 PRINT'AHOUNT LOST : 'lOllTFlFI 
4230 RETURN 

3000 PRINT 'PRESS ANT KO...' 

3010 YI>IINI£TillFXt>"TO 3010 
3020 RETURN 

4000 PRINT 'DO YOU NANT INSTRUCTIONS 7' 

4003 PfilNTlPRItt'FOR YES TYPE 'r'':PRINT 'FOR NO TYPE 'N' ' 

4010 GOSUB 3000 

4020 IF XI >'r' THEN RETURN ELSE IF Xt*'N' THSI GOTO 410 aSE PRINT 'T OR N PLEASE. ':GOTD 4000 

7000 REN EIPFIDSION 

7010 SaUND4,0 

7020 S0UND7.7 

7030 S0UHDe,14 

7040 SOUNDT.U 

7050 SOUNDIO.U 

70M S(XRi}l3,3A 

7070 S0UNDI3,0 

7080 RETURN 

8000 PUrM.4.t,IOI 

8010 PUTI2,4.3.I0I 

8020 GOTO eSM 

8030 FUTIl, 4,1,01 

8040 PJITII.4.3,01 

8030 V8*V3«l:IF VB<2 GOTO 8000 ELSE VB*0: RETUn 
8300 FD8W>ITD2M:ICIT.’Gan 8030 


Barry & Irene WALKER 
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ASSEMBLY LAMGUAGE FOR BEGIMMERS 


This wiH be an occasional senes whichj may be ;L;uppleiiiented from time to time by 
a demonstration at the club night. I believe that the only teal way to learn 
machine coding is by doing it and playing with small modules. In order to be 
able to follow the instructions, you will need a monitor program, such as G-MON 
(Computing Today. Feb 84; or ZEN. Do not attempt to learn the methods by .lust 
reading about it. Power up your Colour Genie, load up your monitor, and start 
here , 

Let us make some of the jargon of Assembly Programming cleat' first; 

* Machine Code is the O's and I's that actually tell the computer what to do. 

It IS usually expressed in hexadecimal numbers (base Ibj or hex for short. 

* Assenibly is the language in winch ttie machine code is represented by a set 
of mnemonics.e.g.the machine code instruction, ilOOOOll (binary) or C3 (hex) is 
represented by ttie operation instruction JP (jump;. 


* A bit IS one digit of a binary number. Thus C3 hex is an 3 bit number, 
bits = 1 byte I 



* The Most Significant Byte (MSB) is the largest byte of a 16 bit number and 
the Least Significant Byte (LSB) is the smallest byte of a 16 bit number. 
Thus the LSB of 443A hex is 3A hex and 44 he.x is' the MSB. 


* ASCII (lunerican Standard ■' le for ' nf ormation I ritcrchanqe ; is the numerical 
code which is used to tell computers which letter, number or symbol to use, e.g. 
41 riex represents ttie letter A and 31 hex represents the number 2. 

A register is the place where the Z30 keeps its current working informa- 
tion. We have access to 3 registers at any one tiint-. The others are best left 
alone' at this stage. Tlie registers act like the memories of an electronic 
calculator . 

Ready? 

Enter fhe f.'i lowing machine code using your monitor in tlie Modify mode: 

* Typie ifi trie following; 

M 3000 

G-MON should siiow M; 8000; 00; 

* Now type in the following numbers without a break; 

21 00 44 06 lA 3E 41 "’T 23 10 FC C3 d6 00 

* Press X to exit from the monitor mode 

* Enter J 38000 J to start the program but doi/t blink or you will miss the 
action. 


* If you want to see it again, clear the screen and type in CALL 8000. 


If you have an 'accident' and you crash the system, don't panic. Do a RESET, 
then (CALL BCDO to re-enter G-MON and start over again. If you never have a 
crash, then you will never have done any machine coding! It's part of the fun 
( and agony ; . 



n 


This is the machine 

code pr ogram 

that you 

have ]ust entered; 

Machine Code 

Operation 

Operand 

Explanation 

21 00 44 

LD 

HL.4400H 

Load the combined HL registers 
with the hex number- 4400. 

06 lA 

LD 

B.IAH 

Load the B register with lA hex 

-IE 41 

LD 

A.41H 

Load the A register with 41 hex 


LD 

f.HLj .A 

Load the memory location pointed 
to by the HL register with the 
value contained in the A register 

23 loop 

INC 

HL 

Increinent fhe value in the HL 
register 

10 FC 

DJNZ 

LOOP 

Decrement the value m the B 
rogistei- t' one and lump back 
if it IS s: ill non zero. 

'C 3 b b 00 

JP 

UObbH 

Jump to location 0066 in ROM 
which IS the re-entry to BASIC. 


r will not tell you what you have oeen. but now cry chanqing some ot the numbers 
to see the effect, 

* Clianqe 4400. but be careful! If you go outside the range 4400-4800, the 
results can be unpredictable!. 

^ Change lA to change how much is printed on the screen. 

^ Change 41 to change what is printed. 

If you have never done any machine coding before this, then welcome to a new 
field. What I would like from those folks who aro' inter ested in Assembly, is a 
response* of some kind, even if it is only a moan. Let ine know, through Nola, of 
things you dorCt unrider stand . or don't iikv ifj the ar^-iclcs. and also things 
that you as a beginner, would like •rxplaintrd , 

— .‘V.u.c, '-the video uenie inan.) 


Pleaae Mote - 

G-MON 13 available on tape from the Colour Genie Users Group tor $3.50 'this 
includes the cost of the tape, 

ZEN IS available, also on tape, for $20,00. 

The reason for the difference m cost, is that 'C-M'jN .has been typed in from a 
magazine by wne of our members, and royalties have to be paid on ZEN. 


-Nola 


REMUMBEIR 3u ri cl r-lEIRCjE 


At the last club meeting, one of the utilities 
requested was for a means of renumbering one line only. 
Two small routines which I developed will enable this. Type 
in this program and save it to tape. You may either merge 
it with one of your existing programs or start a new program 
from line 100 (say). To use the MERGE facility, type in RLN 
40. The program will cope with either normal or expanded 
memory. Mien you have finished with the Utilities, simply 
DELETE (i - 58. - Allan Clarke 


0 ' PROCEDURE RENUMBER A. G. Clarke 

2 ''N.B. Does not renumber line number references in program. 

4 INPUT"First line to be ren umber ed“ ; L 1 
6 INPUT"Last line to be renumber ed" ; L2 
8 INPUT"Enter new start of line numbers" ;L 
10 INPUT"Line number i ncremen ts" ; LX 

12 I=PEEK( 16548) +PEEK( 16549) x258 - I=LOCATION OF LINE POINTER 
14 P1=PEEK< 1+2) :P2=PEEK< 1+3) 

16 LN=P1 + P25(256 ' CURRENT LINE NUMBER 

18 IF PEEK(I+1)=0 THEN END 

20 IF LN>=L1 GOSUB 26 

22 IF LN>=L2 THEN END 

24 I=PEEK< I) +PEEK< 1+ 1) K256:G0T0 14 

26 HB=INT<L/256) ; LB=L-HB)(256 

28 POKE I+2,LB:P0KE 1+3, HB 

30 L=L+LX 

32 RETURN 

34 " 

36 " 

38 ^ PROCEDURE MERGE 

40 P1=PEEK< 16633) :P2=PEEK< 16634) :Pl=Pl-2 
42 IF P1<0 THEN P 1=P 1+256 : P2=P2- 1 
44 P3=PEEK< 16548) :P4=PEEK( 16549) 

46 INPUT"Press <RETURN> when the second program 
is ready to load."; 

48 PRINT ; PRINT"When you have renumbered the second 
program, if necessary, with RENUM , enter 
the commands 'POKE 16548 P3" ' and 'POKE 
16549, "P4" ' . " 

50 PRINT : PRINT" Remember that the starting line number 
of the second program must be greater 
than the last line number of the first 
program . " 

52 POKE 16548, PI iPOKE 16549, P2 
54 CLOAD 
56 END 


3 REM HODIFIED FOR A COLOUR GENIE BY BARRY NALKEH. 

5 CLSiCOLOURl 
10 PRlNnABll&l 'WlNPl’S' 

20 PRINT ' CREATIVE CONFUTING NORRISTOWN NEW JERSEY' 

24 PRINT:PR1NT:COLOUR7;PRIN T'P. 179.NORE BASIC CQHPUTER CANES ' : COLOUR 1 IPRINT 
30 INPUT'DO YOU »ANT INSTRUCTIONS? (Y-Nl* ;I« 

50 IF Ii='N'THEH AO ELSE GOSUB 1000 
AO REN Sn UP CAVE I DODECAHEDRAL NODELIST 
70 DIN S(20,3) 

80 FOR J*I TO 20 
90 FOR K=1 TO 3 

100 READS(J,X) 

no NEXT K 

120 NEXT J 

130 DATA 2. 5, 8, 1.3, 10, 2, 4, 12, 3, 5, 14, 1.4. A 

140 DATA5, 7, 15, A, 8, 17. 1,7, 9, 8, 10, 18, 2. 9, 11 

150 DATA10,12.19.3,11,13,12,14,20,4,13,15,A,14,1A 


lAO DATAI5. 17, 20, 7, lA, 18, 9, 17. 19, 11, 18,20,13,18,19 

“ 

r 


200 REM LOCATE L ARRAY ITEMS 

r 



210 REM 1- YOU,2-WUMPUS,3A4PITS.5iABATS 


With W U M P U S if vou remove the 


220 DIM LIAI ,H(A) 


NBGRD statement (which is part of 


230 FOR J=1 TO A 


line 3145) when the normal s.creen 


240 L(n=RND(20) 


is called the screen is white, and 


2c.O M(;)=L(I) 


wherever there is somethinq on the 


270 NEXT J 


low resolution screen there Is a 


230 REM CHECK FOR CROSSOVERS! !E1 (1)=L(2) ETC) 


block the same colour as what was 


290 FOR JM TO A 


there. The Break key restores 


300 FOR K=J TO A 


thinqs to normal. 


310 IF ;=K THEN 330 




320 IF L(J)=L1K) THEN 240 


What appears to happen is that if 


330 NEXT K 


the Backqround .command is used on 


340 NEXT J 


the LGR pane followed by some 


350 REM SET » ARR08S 


Print statements, the Genie goes 


3A0 A=5 


into a backqroun.d mode. You get 


3A5 L=L( 1 ) 


p r 1 n t e .d a block one character wide 


370 REM RUN THE GAME 


which IS the colour of the 


375 C0L0UR4:PRINT'HUNT THE UUKPUS' 


character in that position on the 


330 REM HHAZARD VARNINGS AND LXATIONS 


LGR page -- the original CHUNKY 


390 COSUB 2000 


‘GRAPHICS on a white screen. 


400 REM HOVE OR SHOOT 




410 GOSUB 2500 




470 ON Q GOTO 440.480 




430 REM SHOOT 



440 GOSUB 3000: GOSUB AOOO 
450 IF F^O THEN 390 
4A0 GOTO 500 
470 REN HOVE 
490 GOSUB 4000 
490 IF F=0 THEN 390 
500 IF F>0 THEN 550 
510 REN LOSE 

520 PRINT'HA HA HA - YOU LOSE* 

530 GOTO 5A0 
540 REN VIN 

550 PRINT'HEE HEE HEE -THE KUHPUS Nia GET YOU ... NEXT TIME !" 

5A0 FOR J=1 TOA 
570 L(J)=H(J) 

SSO NEXT I 

590 PRINT'SAHE SET UPtY-Nl* 

AOO' INPUT I» 



%o. 


605 CIS 

610 IF M 0 'y* THEN 230 
620 GOTO 360 

800 COL0UR(RNDtl5));PRINTeB30, 'PRESS P FOR PREVIOUS PAGE* 

810 COLOUR(R«D(I5)l:PRINTS920, 'PRESS N FOR NEXT PAGE'; 

820 M^INKEYCIF I«=" THEN 800 
830 COLOUR IG;CLS 

840 IF I»='P' THEN ON 12-1 GOTO 1010,1070,1140,1230,1350,1350 
350 ON lEGOTO 1070,1140,1230,1350,1410 
1000 REN INSTRUCTIONS 

1010 PRINT'SELCORE TO'; : COLOURS I PRINT' HUNT THE SUHPUS 'ICOLOURI 
1020 PRINT' THE WJNPUS LIVES IN A CAVE OF 20 ROOKS.' 

1030 PRINT'EACH ROON HAS 3 TUN.NELS LEADING TO OTHER ROOKS.' 

1040 PRINI'ILOOK AT A DODECAHEDRON TO SEE H0« THIS NORKS)':PRINT:PRINT 
1050 PRINT'I KILL SHOK YOU SHAT A DODECAHEDRON 15.' 

1055 PRINT'PRESS ANY KEY' 

1057 FG»=INKEY«;IF FGI*" GOTO 1057 

1053 PRINT'PRESS ANY KEY TO GET BACK TO INSTRUaiON'lFOR SN=1 TO 600;NaT:SN=l; GOSUB 3000 

1059 LGR 

1060 N2=r,IZ=l;GOTO BOO 

1070 C0L0UR7; PRINT' HAZARDS:' 

1030 PRINT 'BOTTONLESS PITS - TSO ROOKS HA’VE EOnOHLESS PITS IN THEN.' 

1090 PRINT' IF YOU GO THEF£,YOU FALL INTO THE PITIAND YOU LOSE D' 

1100 PRINT'SUPERBATS - TSO OTHER ROOKS HAVE SUPER EATS.' 

1110 PRINT 'IF YOU GO THERE ,A BAT GRAES YOU AND' 

1120 PRINT'TAKES YOU TO SOKE OTHER ROOK AT PJUIDOH (SHICH HIGHT BE TROUBLESOKE) ' 

1130 N2=7;i:=2;GOT0800 
1140 PRINT ' WUKPUS ;' 

1150 PRINT'THE VUMPUS IS NOT 30THEP£D BY THE H.A2ARDS' 

1160 FRINT'IHE HAS SUCKER FEET AND IS TO BIG FOR A BAT TO LIFT) .USUALLY HE IS ASLEEP.' 

1170 PPINT'TSO THINGS SAKE HIH UP; YOUR ENTERING HIS ROOM OR YOU SHOOTING AN ARROS.' 

1180 PRINT' IF THE SUMPUS SAKES UP, HE HO'.’ES (P=.75) ONE ROOK' 

1190 PRINT'OR STAYS STIU' 

1200 PRINT'(P=.25).' 

1210 PRINT'AFTER THAT, IF HE IS WHERE YOU ARE, HE EATS YOU UPIAND YOU LOSE !' 

1220 IZ=3:GOTO 800 
1230 PRINT' YOU;' 

1240 PRINT'EACH TURN YOU MAY MOVE OR SHOOT A CROOKED ARROW* 

1250 PRINT' MOVING; YOU CAN GO TO ONE ROOMITHRU ONE TUNNQ.)' 

1260 PRINT' ARROWS; YOU HAVE 5 ARROWS.YOU LOSE WHEN YOU RUN OUT,' 

1270 PRINT'EACH ARROW CAN GO FROM ONE TO FIVE ROOMS. YOU AIM BY ;' 

1275 PRINT 'TELLING' 

1280 PRINT' THE COMPUTER THE ROOMS YOU WANT THE ARROW TO GO TO.' 

1290 PRINT' IF THE ARROW CAN'T GO THAT WAY (IE NO TUNNEL) IT' 

1300 PRINT 'MOVES' 

1310 PRINT ' AT RANDOM TO THE NEXT ROOM.' 

1320 PRINT' IF THE ARROW HITS THE WUMPUS.YOU WIN.' 

1330 PRINT' IF THE ARROW HITS YOU, YOU LOSE.' 

1340 I:M;GOTO 800 
1350 PRINT'WARNINCS;' 

1360 PRINT' WHEN YOU ARE ONE ROOM AWAY FROM THE WUMPUS OR A HAZARD, THE COMPUTER SAYS :' 
1370 PRINT' WUKPUS- ' I SMELL A WUMPUS" 

1380 PRINT' BATS - ' BATS NEARBY" 

1390 PRINT' PIT - ' I rm A DRAFT" 

1400 IZ=5lCOTO 800 
1410 RETURN 

2000 REM PRINT LOCATION AND HAZARD WARNINGS 

2010 PRINT 

2020 FOR J*2 TOA 

2030 FOR K=1 TO 3 

2040 IF S(Ltl).K)<>L(J) THEN 2110 


2050 CN M GOTO 2060.2080,2030.2100,2100 
2060 PRI.ST'1 S-KELL A WLUPUS! 'IGOSUBTOOO 
2070 GOTO 2110 

2030 PRIIIT'I FEa A DRAFT! ' ;GOSUB7000 
2090 GOTO 2110 

2100 PRINT'BATS NEARBY! ' :GOSUB7000 
2110 NLXT K 
2120 L-EXT 1 

2130 PRIHT'YOU ARE IN ROOM ';L(I) 

2140 PRINT'TUNKELS LEAD TO ';S(L.1);S(L,2);S(L,3) 

2150 PRINT 

2160 RETURN 

2500 REM CHOOSE OPTION 

2510 PRINT'SHOOT OR HOVE(S-M)' 

2520 INPUT I» 

2530 IF UO'S' THEN 2560 

2540 0=1 ^ 

2550 RETURN " 

2560 IF UO'M' THEN 2510 
2570 0=2 
2580 RETURN 

3000 REM ARROW ROUTINE 
3010 F=0 

3020 REM PATH OF ARROW 
3030 L=L(1) 

3040 PRINT'NO OF ROOMS(l-5)' 

3050 INPUT 19 

3060 IF 19 <1 OR J9/5 THEN 3040 

3070 FOR K=1 T0J9 

3080 PRINT'ROOM NUMBER '; 

3090 IflPUT P(K) 

3095 IF K<=2 THEN 3115 

3100 IF PIKIO PlK-2) THEN 3115 

3105 PRINT’ARROWS ARE NOT THAT CROOKED-TRY ANOTHER ROCK' 

3110 GOTO 3080 

3115 NEXT K 

3120 REM SHOOT ARROW 

3140 FOR K=1 T0J9 

3150 FOR Kl=l TO 3 

3160 IF S(L.KII=P(K) THEN 3295 

3170 NEXT K1 

3190 REM NO TUNNEL FOR ARROW 
3190 L=S(L,RND(3)) 

3200 GOTO 3300 
3210 NEXT R 
3220 PRINT'MISSEI' 

3225 L=L(1) 

3230 REM MOVE WUMPUS 
3240 GOSUB 3370 
3250 REM AMMO GHECR 
3255 A=A-1 

3260 IF A>0 THEN 3280 
3270 F=-l 
3280 RETURN 

3290 REN SEE IF ARROW IS AT LID ORL(2l 
3295 L=P(K) 

3300 IF L<>L(2) THEN 3340 

3310 PRINT'AHA!YOU COT THE WUMPUS!' 

3320 F=1 
3330 RETURN 


5 ^ 


3340 IF LOLd) THEN 3210 
3350 PRINT'OUCHIARROV GOT YOU!* 

3360 GOTO 3270 

3370 REM- MOVE WJMPUS ROUTINE 
3330 K=RND(4) 

3370 IF K=4 THEN 3410 
3400 Li2)=S(l,t2),K) 

3410 IF L(2) <>L THEN 3440 

3420 PRINT 'TSK TSK TSX -WJHPUS GOT YOU!* 

3430 F=-l 
3440 RETURN 
4000 REM- HOIi'E ROUTINE 
4010 F=0 

4020 PRINT 'NHERE TO*; 

4030 INPUT L 

4040 IF L<1 OR D20 THEN 4020 
4050 FOR K=1 TO 3 
4060 REM- CHECK IF LEGAL HOVE 
4070 IF S(L(1),R1=L THEN 4130 
4080 NEXT K 

4090 IF L=L(1) THEN 4130 
4100 PRINT ‘NOT POSSIBLE-*; 

4110 GOTO 4020 

4120 REM-CHECK FOR HAZARDS 

4130 Lill=L 

4140 REM- WUHPUS 

4150 IF L <>L<2) THEN 4220 

4160 PRINT ’...OOPS! BUMPED A NUMPUSI* 

4165 GOSUB 7600 
4170 REM- MO'.'E WJMPUS 
4180 GOSUB 3380 
4190 IF F=:0 THEN 4220 
4200 RETURN 
4210 REM- PIT 

4220 IF L OL13) AND L O L(4) THEN 4270 
4225 GOSUB 7200 

4230 PRINT •YYYIIIIEEEE....FEa IN PIT* 

4240 F=-I 
4250 RETURN 
4260 REM- BATS 

4270 IF L 0 L(5) AND L O L(6)THEN 4310 
4275 GOSUB 7400 

4280 PRINT *2AP. .SUPER BAT SNATCH! ELSENHEREVILLE FOR YOU 
4290 L=RND(20) 

4300 GOTO 4130 
4310 RETURN 
5000 END 

6000 REM SHOOTINC SOUND 
6010 SOUND 6, IS 
6020 SOUND 7,7 
6030 SOUND 8,16 
6040 SOUND 9,16 
6050 SOUND10,16 
6060 SOUNDI2,16 
6070 SOUND13,0 
6080 RETURN 
7000 REN WARNING SOUND 
7010 SOUIO 7,254 
7020 SOUND 8,15 
7030 FOR SN>t TO50 
7040 SOUND 0,1S» 


7050 FOR S;=l T020 :liEKT;SJ=0 
7060 SOUND 0,155 
7070 FOR SJ=1 TO 20: NEXT 
7080 NEXT 

7090 SOUND 8,0;SJ=0;SN=0 
7100 RETURN 
7200 REM FAaiNC 
7210 FOR SN»1 TO 255 
7220 SOLOO) 7,254 
7230 SOUND 8,15 
7240 SOUND 0,SN 
7250 L-EXI 

7260 SOUND 8,0;SN=0 . 

7270 FOR SJ=1 TO 100;HEXT;SJ=0 
7280 SOUND 6,0 

' 7290 SOUND 7,7 

7300 SOUND 8,16 
7310 SOUND 9,16 

r 7320 SOUND 10,16 

7330 SOUND 12,56 
7340 SOUND 13,0 
7350 RETLOai 
7400 REM BUSTOFF 
7410 SOUND 7,248 

( 7420 SOUND B.lSlSOUND 9,15;SOUND10,15 

7430 FOR SN=1 TO 255 
7440 SOUND 0,SN 
7450 SOUND 2,256-SN 
7460 FOR SJ=1 TO 20 
7470 SOUND4,SI;NEXT 
7480 NEXT 
7490 SOUND 7,255 
7500 s;=0;SN=O 
7510 RETURN 
7600 PLAY(3,1,12,15) 

7610 FOR SN=1 TO 50:NEXT 
7620 SN=0; SOUND?, 255 
7630 RETURN 

7999 REM DRAW DODECAHEDRON 

8000 FGR:BGRD:FCOLOUR4 

V 3010 PLOT20,5T090,5T0115,55T060,95TD 

8020 PLOT30 , 1 5T080 , 1 5T01 00 , 55TO60 , 80TO 
8030 PLOT57,25T075,40T070,55T050,55TO 
8040 PLOT57,25T057,15 
8050 PLOT20,5TO30,15 
8060 PLOT90,5TO8O,15 
8070 PLOT40,40T028,33 
8080 PLOT75,40TOB7,33 
8090 PLOT5,60T025,60 
8100 PL0T50, 551040, 70 
8110 PLOT60, 801060,95 
8120 PLOn0,55TO83,67 
8130 PLOT 100,55T0115,55 
8140 FC»-INKEYI;IF FG»-**THai 8140 
8145 LCRlNBGRO 
8150 FG«***:REIURB 


5,60T020,3 

25,60T030.15 

40,40T057,25 


